home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
prolog
/
ai.prl
/
opnprlg1.hqx
/
Open Prolog
/
Open Prolog.rsrc
/
CODE_28_PRLXRuntime.txt
< prev
next >
Wrap
Text File
|
1993-04-15
|
21KB
|
367 lines
# near model CODE resource
# entry label at 0x0000
export_408:
entry:
00000000 48E7 FFF8 movem.l -[A7], D0,D1,D2,D3,D4,D5,D6,D7,A0,A1,A2,A3,A4
00000004 4CED 1CF8 F3A6 movem.l A4,A3,A2,D7,D6,D5,D4,D3, [A5 - 0xC5A]
0000000A 4E56 FEFA link A6, -0x0106
0000000E 41FA 002A lea.l A0, [PC + 0x2A /* 0000003A */]
label00000012:
00000012 3010 move.w D0, [A0]
00000014 6712 beq +0x14 /* 00000028 */
00000016 41E8 0004 lea.l A0, [A0 + 0x4]
0000001A B06D F3D6 cmp.w D0, [A5 - 0xC2A]
0000001E 66F2 bne -0xC /* 00000012 */
00000020 3028 FFFE move.w D0, [A0 - 0x2]
00000024 4EFB 0014 jmp [PC + D0.w + 0x14]
label00000028:
00000028 40E7 move.w -[A7], SR
0000002A 3F3C 0009 move.w -[A7], 0x9 /* '\t' */
0000002E 487A 044E pea.l [PC + 0x44E /* 0000047E, pstring "error - unknown callback request code" */]
00000032 4EAD 0B62 jsr [A5 + 0xB62]
00000036 6000 042C bra +0x42E /* 00000464 */
0000003A 0001 01E2 ori.b D1, 0xE2
0000003E 0002 0388 ori.b D2, 0x88
00000042 0005 02E6 ori.b D5, 0xE6
00000046 0006 02AE ori.b D6, 0xAE
0000004A 000A 01A2 ori.b A2, 0xA2
0000004E 000B 017C ori.b A3, 0x7C /* '|' */
00000052 000C 01A2 ori.b A4, 0xA2
00000056 000D 00FA ori.b A5, 0xFA
0000005A 000E 0136 ori.b A6, 0x36 /* '6' */
0000005E 000F 015A ori.b A7, 0x5A /* 'Z' */
00000062 0010 00EE ori.b [A0], 0xEE
00000066 0011 00D2 ori.b [A1], 0xD2
0000006A 0012 00AE ori.b [A2], 0xAE
0000006E 0013 009A ori.b [A3], 0x9A
00000072 0014 0082 ori.b [A4], 0x82
00000076 0015 0092 ori.b [A5], 0x92
0000007A 0016 0408 ori.b [A6], 0x8
0000007E 0004 0262 ori.b D4, 0x62 /* 'b' */
00000082 0017 004E ori.b [A7], 0x4E /* 'N' */
00000086 0000 206D ori.b D0, 0x6D /* 'm' */
0000008A F4F6 .extension 0x4F6 // unimplemented
0000008C D1ED E8A8 add.l A0, [A5 - 0x1758]
00000090 7000 moveq.l D0, 0x00
00000092 1028 0007 move.b D0, [A0 + 0x7]
00000096 2B40 F3D8 move.l [A5 - 0xC28], D0
0000009A 42AD F3E0 clr.l [A5 - 0xC20]
0000009E 41E8 0008 lea.l A0, [A0 + 0x8]
000000A2 43ED F3E4 lea.l A1, [A5 - 0xC1C]
000000A6 7000 moveq.l D0, 0x00
000000A8 3018 move.w D0, [A0]+
000000AA 12C0 move.b [A1]+, D0
000000AC 5340 subq.w D0, 1
000000AE 6B00 03B4 bmi +0x3B6 /* 00000464 */
label000000B2:
000000B2 12D8 move.b [A1]+, [A0]+
000000B4 51C8 FFFC dbf D0, -0x6 /* 000000B2 */
000000B8 6000 03AA bra +0x3AC /* 00000464 */
000000BC 2F2D F3D8 move.l -[A7], [A5 - 0xC28]
000000C0 2F2D F3DC move.l -[A7], [A5 - 0xC24]
000000C4 4EAD 0B82 jsr [A5 + 0xB82]
000000C8 6000 039A bra +0x39C /* 00000464 */
000000CC 4EAD 0B8A jsr [A5 + 0xB8A]
000000D0 6000 0392 bra +0x394 /* 00000464 */
000000D4 7000 moveq.l D0, 0x00
000000D6 082D 0000 E6CC btst.b [A5 - 0x1934], 0x0
000000DC 6702 beq +0x4 /* 000000E0 */
000000DE 7001 moveq.l D0, 0x01
label000000E0:
000000E0 2B40 F3D8 move.l [A5 - 0xC28], D0
000000E4 6000 037E bra +0x380 /* 00000464 */
000000E8 42AD F3E0 clr.l [A5 - 0xC20]
000000EC 222D F4FA move.l D1, [A5 - 0xB06]
000000F0 6600 0372 bne +0x374 /* 00000464 */
000000F4 2B6D F3D8 F4FA move.l [A5 - 0xB06], [A5 - 0xC28]
000000FA 2B6D F3DC F4FE move.l [A5 - 0xB02], [A5 - 0xC24]
00000100 2B7C 0000 0001 F3E0 move.l [A5 - 0xC20], 0x1
00000108 6000 035A bra +0x35C /* 00000464 */
0000010C 4EAD 098A jsr [A5 + 0x98A]
00000110 486D 0BEA pea.l [A5 + 0xBEA]
00000114 486E FEFA pea.l [A6 - 0x106]
00000118 A991 trap ModalDialog
0000011A 7000 moveq.l D0, 0x00
0000011C 302E FEFA move.w D0, [A6 - 0x106]
00000120 2B40 F3D8 move.l [A5 - 0xC28], D0
00000124 6000 033E bra +0x340 /* 00000464 */
00000128 41ED E852 lea.l A0, [A5 - 0x17AE]
0000012C 2B48 F3D8 move.l [A5 - 0xC28], A0
00000130 6000 0332 bra +0x334 /* 00000464 */
00000134 4EAD 098A jsr [A5 + 0x98A]
00000138 486D F3E4 pea.l [A5 - 0xC1C]
0000013C 42A7 clr.l -[A7]
0000013E 42A7 clr.l -[A7]
00000140 42A7 clr.l -[A7]
00000142 A98B trap ParamText
00000144 3F38 0220 move.w -[A7], [0x00000220 /* MemErr */]
00000148 6708 beq +0xA /* 00000152 */
0000014A 487A 0326 pea.l [PC + 0x326 /* 00000472 */]
0000014E 4EAD 0CD2 jsr [A5 + 0xCD2]
label00000152:
00000152 548F addq.l A7, 2
00000154 558F subq.l A7, 2
00000156 202D F3D8 move.l D0, [A5 - 0xC28]
0000015A 3F00 move.w -[A7], D0
0000015C 42A7 clr.l -[A7]
0000015E 4267 clr.w -[A7]
00000160 4EAD 050A jsr [A5 + 0x50A]
00000164 7000 moveq.l D0, 0x00
00000166 301F move.w D0, [A7]+
00000168 2B40 F3DC move.l [A5 - 0xC24], D0
0000016C 6000 02F6 bra +0x2F8 /* 00000464 */
00000170 103C 0001 move.b D0, 0x1
00000174 0CAD 0000 0001 F3D8 cmpi.l [A5 - 0xC28], 0x1
0000017C 6602 bne +0x4 /* 00000180 */
0000017E 4200 clr.b D0
label00000180:
00000180 1F00 move.b -[A7], D0
00000182 486D F3E4 pea.l [A5 - 0xC1C]
00000186 202D F3DC move.l D0, [A5 - 0xC24]
0000018A 3F00 move.w -[A7], D0
0000018C 4EAD 0A2A jsr [A5 + 0xA2A]
00000190 6000 02D2 bra +0x2D4 /* 00000464 */
00000194 103C 0001 move.b D0, 0x1
00000198 0CAD 0000 0001 F3D8 cmpi.l [A5 - 0xC28], 0x1
000001A0 6602 bne +0x4 /* 000001A4 */
000001A2 4200 clr.b D0
label000001A4:
000001A4 486D F3E4 pea.l [A5 - 0xC1C]
000001A8 202D F3DC move.l D0, [A5 - 0xC24]
000001AC 3F00 move.w -[A7], D0
000001AE 4EAD 0A2A jsr [A5 + 0xA2A]
000001B2 6000 02B0 bra +0x2B2 /* 00000464 */
000001B6 41ED F3E4 lea.l A0, [A5 - 0xC1C]
000001BA 43EE FEFC lea.l A1, [A6 - 0x104]
000001BE 4EAD 08CA jsr [A5 + 0x8CA]
000001C2 206D E87E movea.l A0, [A5 - 0x1782]
000001C6 2F3C 0000 000C move.l -[A7], 0xC
000001CC 42A7 clr.l -[A7]
000001CE 2F09 move.l -[A7], A1
000001D0 3F3C 0014 move.w -[A7], 0x14
000001D4 4E90 jsr [A0]
000001D6 201F move.l D0, [A7]+
000001D8 6000 028A bra +0x28C /* 00000464 */
000001DC 41ED F3E4 lea.l A0, [A5 - 0xC1C]
000001E0 43EE FEFC lea.l A1, [A6 - 0x104]
000001E4 4EAD 08CA jsr [A5 + 0x8CA]
000001E8 206D E87E movea.l A0, [A5 - 0x1782]
000001EC 2F3C 0000 000C move.l -[A7], 0xC
000001F2 42A7 clr.l -[A7]
000001F4 2F09 move.l -[A7], A1
000001F6 3F3C 0014 move.w -[A7], 0x14
000001FA 4E90 jsr [A0]
000001FC 201F move.l D0, [A7]+
000001FE 206D E87E movea.l A0, [A5 - 0x1782]
00000202 2F3C 0000 000C move.l -[A7], 0xC
00000208 42A7 clr.l -[A7]
0000020A 2F3C 0000 000D move.l -[A7], 0xD /* '\r' */
00000210 3F3C 0013 move.w -[A7], 0x13
00000214 4E90 jsr [A0]
00000216 201F move.l D0, [A7]+
00000218 6000 024A bra +0x24C /* 00000464 */
0000021C 202D F3D8 move.l D0, [A5 - 0xC28]
00000220 5380 subq.l D0, 1
00000222 E788 lsl D0, 3
00000224 4CF2 0003 0830 movem.l D1,D0, [A2 + D0 + 0x30]
0000022A 4A80 tst.l D0
0000022C 6610 bne +0x12 /* 0000023E */
0000022E C388 exg D1, A0
label00000230:
00000230 2018 move.l D0, [A0]+
00000232 2050 movea.l A0, [A0]
00000234 6606 bne +0x8 /* 0000023C */
00000236 B1E8 0004 cmpa.l A0, [A0 + 0x4]
0000023A 66F4 bne -0xA /* 00000230 */
label0000023C:
0000023C C388 exg D1, A0
label0000023E:
0000023E 2B40 F3D8 move.l [A5 - 0xC28], D0
00000242 2B41 F3DC move.l [A5 - 0xC24], D1
00000246 0C80 0000 005C cmpi.l D0, 0x5C /* '\\' */
0000024C 6D00 0010 blt +0x12 /* 0000025E */
00000250 2B7C 0000 0028 F3D8 move.l [A5 - 0xC28], 0x28 /* '(' */
00000258 2041 movea.l A0, D1
0000025A 2210 move.l D1, [A0]
0000025C 6012 bra +0x14 /* 00000270 */
label0000025E:
0000025E 0C80 0000 0018 cmpi.l D0, 0x18
00000264 670A beq +0xC /* 00000270 */
00000266 0C80 0000 0040 cmpi.l D0, 0x40 /* '@' */
0000026C 6600 01F6 bne +0x1F8 /* 00000464 */
label00000270:
00000270 2041 movea.l A0, D1
00000272 D1ED E8A8 add.l A0, [A5 - 0x1758]
00000276 7200 moveq.l D1, 0x00
00000278 1228 0007 move.b D1, [A0 + 0x7]
0000027C 2B41 F3DC move.l [A5 - 0xC24], D1
00000280 41E8 0008 lea.l A0, [A0 + 0x8]
00000284 43ED F3E4 lea.l A1, [A5 - 0xC1C]
00000288 3218 move.w D1, [A0]+
0000028A 12C1 move.b [A1]+, D1
0000028C 5341 subq.w D1, 1
0000028E 6B00 01D4 bmi +0x1D6 /* 00000464 */
label00000292:
00000292 12D8 move.b [A1]+, [A0]+
00000294 51C9 FFFC dbf D1, -0x6 /* 00000292 */
00000298 6000 01CA bra +0x1CC /* 00000464 */
0000029C 2B7C 0000 0004 F3E0 move.l [A5 - 0xC20], 0x4
000002A4 202D F3D8 move.l D0, [A5 - 0xC28]
000002A8 E788 lsl D0, 3
000002AA 0680 0000 0028 addi.l D0, 0x28 /* '(' */
000002B0 B0AA 000C cmp.l D0, [A2 + 0xC]
000002B4 6200 01AE bhi +0x1B0 /* 00000464 */
000002B8 4CF2 0003 0800 movem.l D1,D0, [A2 + D0]
000002BE 262D F3DC move.l D3, [A5 - 0xC24]
000002C2 E78B lsl D3, 3
000002C4 0683 0000 0028 addi.l D3, 0x28 /* '(' */
000002CA B6AA 000C cmp.l D3, [A2 + 0xC]
000002CE 6200 0194 bhi +0x196 /* 00000464 */
000002D2 4CF2 000C 3800 movem.l D3,D2, [A2 + D3]
000002D8 4EAD 0D42 jsr [A5 + 0xD42]
000002DC 6500 0186 bcs +0x188 /* 00000464 */
000002E0 42AD F3E0 clr.l [A5 - 0xC20]
000002E4 6000 017E bra +0x180 /* 00000464 */
000002E8 2B7C 0000 0004 F3E0 move.l [A5 - 0xC20], 0x4
000002F0 202D F3D8 move.l D0, [A5 - 0xC28]
000002F4 E788 lsl D0, 3
000002F6 0680 0000 0028 addi.l D0, 0x28 /* '(' */
000002FC B0AA 000C cmp.l D0, [A2 + 0xC]
00000300 6200 0162 bhi +0x164 /* 00000464 */
00000304 4CF2 0003 0000 movem.l D1,D0, [A2 + D0.w]
0000030A 262D F3DC move.l D3, [A5 - 0xC24]
0000030E 7420 moveq.l D2, 0x20
00000310 4EAD 0D42 jsr [A5 + 0xD42]
00000314 6500 014E bcs +0x150 /* 00000464 */
00000318 42AD F3E0 clr.l [A5 - 0xC20]
0000031C 6000 0146 bra +0x148 /* 00000464 */
00000320 202D F3D8 move.l D0, [A5 - 0xC28]
00000324 E788 lsl D0, 3
00000326 0680 0000 0028 addi.l D0, 0x28 /* '(' */
0000032C B0AA 000C cmp.l D0, [A2 + 0xC]
00000330 6200 0132 bhi +0x134 /* 00000464 */
00000334 4CF2 000C 0000 movem.l D3,D2, [A2 + D0.w]
0000033A 3D6D F3E2 FEFC move.w [A6 - 0x104], [A5 - 0xC1E]
00000340 41ED F3E4 lea.l A0, [A5 - 0xC1C]
00000344 43EE FEFE lea.l A1, [A6 - 0x102]
00000348 7000 moveq.l D0, 0x00
0000034A 1018 move.b D0, [A0]+
0000034C 32C0 move.w [A1]+, D0
0000034E 5340 subq.w D0, 1
00000350 6B06 bmi +0x8 /* 00000358 */
label00000352:
00000352 12D8 move.b [A1]+, [A0]+
00000354 51C8 FFFC dbf D0, -0x6 /* 00000352 */
label00000358:
00000358 43EE FEFC lea.l A1, [A6 - 0x104]
0000035C 4240 clr.w D0
0000035E 4EAD 087A jsr [A5 + 0x87A]
00000362 4AAD F3E0 tst.l [A5 - 0xC20]
00000366 6600 001E bne +0x20 /* 00000386 */
0000036A 2200 move.l D1, D0
0000036C 7018 moveq.l D0, 0x18
0000036E 42AD F3E0 clr.l [A5 - 0xC20]
00000372 4EAD 0D42 jsr [A5 + 0xD42]
00000376 6400 00EC bcc +0xEE /* 00000464 */
0000037A 2B7C 0000 0004 F3E0 move.l [A5 - 0xC20], 0x4
00000382 6000 00E0 bra +0xE2 /* 00000464 */
label00000386:
00000386 4EAD 08BA jsr [A5 + 0x8BA]
0000038A 2200 move.l D1, D0
0000038C D2AD E8A8 add.l D1, [A5 - 0x1758]
00000390 2045 movea.l A0, D5
00000392 202D F3E0 move.l D0, [A5 - 0xC20]
00000396 5340 subq.w D0, 1
label00000398:
00000398 2148 0004 move.l [A0 + 0x4], A0
0000039C 4290 clr.l [A0]
0000039E 41E8 0008 lea.l A0, [A0 + 0x8]
000003A2 51C8 FFF4 dbf D0, -0xE /* 00000398 */
000003A6 2005 move.l D0, D5
000003A8 2A08 move.l D5, A0
000003AA 42AD F3E0 clr.l [A5 - 0xC20]
000003AE 4EAD 0D42 jsr [A5 + 0xD42]
000003B2 6400 00B0 bcc +0xB2 /* 00000464 */
000003B6 2B7C 0000 0004 F3E0 move.l [A5 - 0xC20], 0x4
000003BE 6000 00A4 bra +0xA6 /* 00000464 */
000003C2 2B7C FFFF FFFF F3E0 move.l [A5 - 0xC20], 0xFFFFFFFF
000003CA 202D F3D8 move.l D0, [A5 - 0xC28]
000003CE 6B6E bmi +0x70 /* 0000043E */
000003D0 E788 lsl D0, 3
000003D2 0680 0000 0028 addi.l D0, 0x28 /* '(' */
000003D8 B0AA 000C cmp.l D0, [A2 + 0xC]
000003DC 6260 bhi +0x62 /* 0000043E */
000003DE 4CF2 0003 0000 movem.l D1,D0, [A2 + D0.w]
000003E4 4A80 tst.l D0
000003E6 6610 bne +0x12 /* 000003F8 */
000003E8 C388 exg D1, A0
label000003EA:
000003EA 2018 move.l D0, [A0]+
000003EC 2050 movea.l A0, [A0]
000003EE 6606 bne +0x8 /* 000003F6 */
000003F0 B1E8 0004 cmpa.l A0, [A0 + 0x4]
000003F4 66F4 bne -0xA /* 000003EA */
label000003F6:
000003F6 C388 exg D1, A0
label000003F8:
000003F8 0C80 0000 005C cmpi.l D0, 0x5C /* '\\' */
000003FE 633E bls +0x40 /* 0000043E */
00000400 2800 move.l D4, D0
00000402 2041 movea.l A0, D1
00000404 2258 movea.l A1, [A0]+
00000406 D3ED E8A8 add.l A1, [A5 - 0x1758]
0000040A 7000 moveq.l D0, 0x00
0000040C 1029 0007 move.b D0, [A1 + 0x7]
00000410 242D F3DC move.l D2, [A5 - 0xC24]
00000414 B480 cmp.l D2, D0
00000416 6226 bhi +0x28 /* 0000043E */
00000418 5342 subq.w D2, 1
0000041A 6B22 bmi +0x24 /* 0000043E */
label0000041C:
0000041C 4EAD 0D4A jsr [A5 + 0xD4A]
00000420 51CA FFFA dbf D2, -0x8 /* 0000041C */
00000424 242A 000C move.l D2, [A2 + 0xC]
00000428 50AA 000C addq.l [A2 + 0xC], 8
0000042C 48F2 0003 2800 movem.l [A2 + D2], D1,D0
00000432 0482 0000 0028 subi.l D2, 0x28 /* '(' */
00000438 E68A lsr D2, 3
0000043A 2B42 F3E0 move.l [A5 - 0xC20], D2
label0000043E:
0000043E 6000 0024 bra +0x26 /* 00000464 */
00000442 242A 000C move.l D2, [A2 + 0xC]
00000446 50AA 000C addq.l [A2 + 0xC], 8
0000044A 41F2 2800 lea.l A0, [A2 + D2]
0000044E 4290 clr.l [A0]
00000450 2148 0004 move.l [A0 + 0x4], A0
00000454 0482 0000 0028 subi.l D2, 0x28 /* '(' */
0000045A E68A lsr D2, 3
0000045C 2B42 F3D8 move.l [A5 - 0xC28], D2
00000460 6000 0002 bra +0x4 /* 00000464 */
label00000464:
00000464 4E5E unlink A6
00000466 48ED 1CF8 F3A6 movem.l [A5 - 0xC5A], A4,A3,A2,D7,D6,D5,D4,D3
0000046C 4CDF 1FFF movem.l A4,A3,A2,A1,A0,D7,D6,D5,D4,D3,D2,D1,D0, [A7]+
00000470 4E75 rts
00000472 8843 or.w D4, D3
00000474 414C chk.w D0, A4
00000476 4C42 4143 movem.l A6,A0,D6,D1,D0, D2
0000047A 4B20 .invalid 5, -[A0] // invalid opcode 4 with b == 4
0000047C 0000 2565 ori.b D0, 0x65 /* 'e' */
00000480 7272 moveq.l D1, 0x72
00000482 6F72 ble +0x74 /* 000004F6 */
00000484 202D 2075 move.l D0, [A5 + 0x2075]
00000488 6E6B bgt +0x6D /* 000004F5 */
0000048A 6E6F bgt +0x71 /* 000004FB */
0000048C 776E moveq.l D3, 0x6E
0000048E 2063 movea.l A0, -[A3]
00000490 616C bsr +0x6E /* 000004FE */
00000492 6C62 bge +0x64 /* 000004F6 */
00000494 6163 bsr +0x65 /* 000004F9 */
00000496 6B20 bmi +0x22 /* 000004B8 */
00000498 7265 moveq.l D1, 0x65
0000049A 7175 moveq.l D0, 0x75
0000049C 6573 bcs +0x75 /* 00000511 */
0000049E 7420 moveq.l D2, 0x20
000004A0 636F bls +0x71 /* 00000511 */
000004A2 6465 bcc +0x67 /* 00000509 */